/* Figure 1 - Proof of Concept: China's Mao versus Taiwan's Lee Teng-hui */

	use Personalism Pronouns Sample 1 _Chinese.dta
	
	/*Figure 1a - Mao Zedong */
	
		ttest i2we, by(mao_cultural) unequal
	
	/* Figure 1b - Lee Teng-hui */
	
		ttest i2we, by(lee_elect) unequal

	 
		 
/* Figure 2 - Ratio of 'I' to 'We' across Extant Measures */

	use Personalism Pronouns Sample 1 _Chinese.dta
	
	/* Figure 2a - Polity: xconst */
	
		su i2we if p_xconst==1, detail
		signtest i2we=.0103806 if p_xconst==2
	
		su i2we if p_xconst==2, detail
		signtest i2we=.0465116 if p_xconst==3

		su i2we if p_xconst==3, detail
		signtest i2we=.1485707 if p_xconst==5 
		/* Note: p_xoncst==4 is empty set */
		
		su i2we if p_xconst==5, detail
		signtest i2we=.1428571 if p_xconst==6 

		su i2we if p_xconst==6, detail
		signtest i2we=.1221311 if p_xconst==7

		su i2we if p_xconst==7, detail

	/* Figure 2b - Henisz: polcon */
	
		su i2we if h_polcon5!=. & h_polcon5==0, detail
		signtest i2we=.0466933 if h_polcon5!=. & h_polcon5>0.05 & h_polcon5<.5
		
		su i2we if h_polcon5!=. & h_polcon5>0.05 & h_polcon5<.5, detail
		signtest i2we=.1361449  if h_polcon5!=. & h_polcon5>.5
		
		su i2we if h_polcon5!=. & h_polcon5>.5, detail
		
	/* Figure 2c - Lai and Slater: bossism */
	
		su i2we if boss==1, detail
		signrank i2we=.0038344 if boss==0
	
		su i2we if boss==0, detail
		
	/* Figure 2d - Gandhi & Summer: consolidation */

		su i2we if consolid>-0.50 & consolid!=., detail
		signrank i2we= .0313238 if consolid>-1 & consolid<-0.50 & consolid!=. /* z: 3.887 */
		
		su i2we if consolid>-1 & consolid<-0.50 & consolidn!=., detail
		signtest i2we=.0625 if consolid<-1
		
		su i2we if consolid<-1 & democracy==0, detail

		

/* Figure 3 - Marginal Effects of 'I' to 'We' Ration */

	use Personalism Pronouns Sample 1 _Chinese.dta
	
	tsset executive_id year

	/* Polity - +1 Year */
	
		xtreg p_xconst_next1 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))
		margins, dydx(*)

	/* Polity - +2 Years */
	
		xtreg p_xconst_next2 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))
		  
	/* Henisz - +1 Year */
		
		xtreg h_polcon5_next1 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))

	/* Henisz - +2 Years */
		
		xtreg h_polcon5_next2 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))
		
	/* Gandhi and Sumner - +1 Year */
	
		xtreg consolid_next1 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))

	/* Gandhi and Sumner - +2 Years */
	
		xtreg consolid_next2 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))
	
	/* Gandhi and Sumner - +3 Years */
	
		xtreg consolid_next3 i2we you ta lduration i.executive_id i.year i.ccode, fe
		margins, at((means) _all i2we=(0.2267551 0.5322471))

	 
		 
/* Figure 4 - Ratio of 'I' to 'We' across Non-Chinese Leaders */

	/* Figure 4a - Albania: Hoxha */
	
		use Personalism Pronouns Sample 2 _Hoxha.dta
		
		ttest i2we if year>1944, by(b4_after) unequal

		su i2we if b4_after==1
		signrank i2we=0.3107 if b4_after==0 /* z=-3.825 */

	/* Figure 4b - North Korea: Kim Il Sung */
	
		use Personalism Pronouns Sample 3 _Kim Il Sung.dta
		
		ttest i2we, by(b4_after) unequal

		su i2we if b4_after==1, detail
		signrank i2we=.211901 if b4==0 /* z=1.872 */
	
	/* Figure 4c - Hungary: Orban */
	
		use Personalism Pronouns Sample 4 _Orban.dta
		
		ttest i2we, by(term_23) unequal
		
		su i2we if term_23==1, detail
		signrank i2we=0.3354633 if term_23==0 /* z=6.267 */

		ttest i2we, by(term_24) unequal
		
		su i2we if term_24==1, detail
		signrank i2we=0.3825503 if term_24==0 /* z=4.493 */
		
		ttest i2we, by(term_34) unequal
		
		su i2we if term_34==1, detail
		signrank i2we=0.3825503 if term_34==0 /* z=-1.310 */
	
	/* Figure 4d - Ecuador: Correa */
 
		use Personalism Pronouns Sample 5 _Correa.dta
		
		/* Prediction: No change over time */
		
		ttest i2we, by(term_23) unequal
		
		su i2we if term==3, detail
		signrank i2we=1.16  if term==2 /* z=1.174 */

		ttest i2we, by(term_12) unequal
		
		su i2we if term==2, detail
		signrank i2we=1.17  if term==1 /* z=-1.715 */
		
		ttest i2we, by(term_13) unequal
		
		su i2we if term==3, detail
		signrank i2we=1.16  if term==1 /* z=-1.540 */
